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Capi'tulo 1: Conceitos da Linguagem 


1. Introducao 


Em FORTRAN existem basicamente duas formas de se escrever urn programa: com 
formulario fixo (‘fixed form) ou com formulario livre (‘free form’). Sendo este segundo disponivel 
apenas para os compiladores mais novos que suportam a programagao em FORTRAN 90. 
Outro ponto importante e que existem comandos validos somente para estes novos 
compiladores (por exemplo Microsoft Developer Studio) que aceitam programas em FORTRAN 
90. Algumas versoes dos compliladores baseados em FORTRAN 77 aceitam fungoes ou 
comandos criados posteriormente a essa versao, mas nao aceitam todas as inovagoes dos 
compiladores de FORTRAN 90. Para as explicagoes ficarem mais Claras a seguinte 
nomenclatura sera utilizada: 

• topicos precedidos da identificagao N77 so sao validos para compiladores novos, mas que 
nao aceitam a programagao em FORTRAN 90; 

• topicos precedidos de F90 sao validos apenas para os compiladores que aceitam 
comandos FORTRAN 90. 

Deve ficar claro que compiladores para FORTRAN 90 aceitam tambem os outros dois 
tipos, e os baseados em FORTRAN N77 aceitam todos os comandos dos compiladores mais 
antigos (FORTRAN 77), e que a reciproca nao e verdadeira. 

Os programas podem ser escritos em qualquer editor de texto, desde que sejam salvos 
com as extensoes .for ou .f90. Esta segunda forma somente para F90. Os compiladores em 
N77 e F90 possuem urn editor proprio; que deve ser usado, pois possui muitos recursos 
adicionais, como por exemplo o destaque das palavras chaves e identificagoes mais Claras dos 
erros de compilagao, o que facilita muita a detecgao de falhas na criagao dos programas. 


2. Formatagao 


A formatagao dos codigos em FORTRAN, principalmente em formato fixo deve seguir 
urn estilo diferente dos usados na maioria das linguagens de programagao. Estes conceitos 
iniciais podem nao ficar claro para os iniciantes na linguagem, estes leitores podem observar o 
exemplo no final do item 8 (Leitura e impressao) para ter maior clareza da disposigao dos 
comandos em FORTRAN. 
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Os seguintes criterios devem ser seguidos para se escrever um programa em 
FORTRAN no modo de formulario fixo: 

• colunas 1 a 5: sao usadas para escrever os rotulos ‘ label ou numeros de comando. Estes 
numeros devem ser inteiros e estar totalmente contido nestas colunas. Nao podem se 
repetir e nao precisam estar em ordem crescente. Serao usados para que outros comandos 
possam identificar aquela linha; 

• coluna 6: qualquer caractere diferente de 0 “zero” nesta coluna indica que o que vem a 
seguir e continuagao da linha anterior ou da ultima linha que nao seja um comentario 
(proximo item, conceitos basicos). Um mesmo comando pode estar dividido em ate 19 
linhas de codigo. Entre as linhas do comando pode haver linhas em branco ou comentarios; 

• colunas 7 a 72: comandos ou comentarios; 

• colunas 73 a 80: campos de identificagao, sao usados pelo compilador, portanto nao se 
deve escrever nestas colunas. 

F90 - O programa pode ser escrito em qualquer posigao, desde que o modo formulario livre 
esteja ativado. Alguns pontos devem ser observados para este formato: 

• as linhas de continuagao sao indicadas pelo simbolo no fim da sentenga, e a proxima 
linha abaixo que nao seja um comentario sera tomada como continuagao. Deixe sempre um 
espago entre os comandos e o simbolo de continuagao. E permitida a insergao de 
comentarios apos o 

• os rotulos devem ser os primeiros caracteres da linha, e podem estar em qualquer coluna. 

3. Conceitos Basicos 

Nesta segao serao apresentados outros conceitos importantes para a construgao de 
programas em FORTRAN. 

• Comentarios: nao sao interpretados pelo computador, um bom programa deve conter 
muitos para que fique o mais claro possivel principalmente para quern vai analisa-lo. Em 
FORTRAN a letra ‘c’ ou o caractere na primeira coluna indica que toda a linha e um 
comentario. Alguns compiladores aceitam o uso de qualquer caractere diferente de 
numeros para iniciar a linha de comentario. Na linha de comentario e permitido o uso de 
qualquer caractere, especial ou nao. 

N77 - o ponto de exclamagao T indica que o que vem apos ele e comentario, ele pode vir em 
qualquer posigao, inclusive apos os comandos. 
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• Variaveis e Nomes de Blocos: devem ter no maximo seis letras, nao e permitido o uso de 
caracteres especiais e nao podem comegar com um numero. 

N77 - podem ter 31 caracteres, inclusive o caractere ‘underscore’ 

Constantes 

• Numericas: podem conter quaisquer valores reais, inteiros ou complexos. A parte decimal 
e separada da inteira por um ponto Os zeros antes e depois do ponto decimal podem ser 
omitidos, se nao forem significantes. O expoente decimal e indicado pela letra ‘e’ ou ‘E, 
deve vir entre o numero e seu expoente sem o uso de espagos entre eles. Numeros 
negativos assim como a parte exponencial quando for negativa deve vir precedida do sinal 
menos O sinal V e opcional em ambas as partes. Os numeros imaginarios devem vir 
entre parenteses e a parte real deve ser separada por uma virgula da parte imaginaria. 

• Alfanumericas: (sao as ‘strings’, sequences de letras e/ou numeros) podem conter 
qualquer sequencia de caracteres nao especiais. Devem vir entre aspas “ “ ou apostrofos ‘ ‘. 
As aspas tern preference sobre os apostrofos, portanto um valor literal pode conter 
apostrofos, desde que seu valor venha entre aspas. Nao e permitido o uso de caracteres 
especiais e letras acentuadas. Uma forma de se indicar ao compilador que usara um valor 
alfanumerico e o uso de wHvalorliteral, onde w e o numero de caracteres do valor 
alfanumerico. Apresar de valido este formato praticamente nao e usado nos programas 
atuais. 

• Maiusculas e Minusculas: FORTRAN nao e ‘case sensitive’, isto e nao faz qualquer 
distingao entre letras maiusculas e minusculas. E permitido inclusive o uso do nome da 
variavel escrita de formas diferentes num mesmo programa. EX.: VAR = var = Var. 

• Nomes de programa: os programas podem conter no infcio o seu nome (program 
nome_do _programa), e devem terminar com a palavra ‘end’ indicando que o que vem a 
seguir nao precisa ser executado. 


4. Declaracao de Variaveis 


As variaveis podem ser inteiras, reais ou literais. A declaragao de uma variavel deve vir 
antes que ela seja usada, se isto nao ocorrer o compilador assumira que as variaveis que 
comegam com as letras I ate N como inteiras ( INTEGER*4) e todas as outras como reais 
(REAL*4). 
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Esta forma de declaragao implfcita pode ser modificada usando o comando ‘implicit 
tipo (ai-a2,bi-b2 , . ..)’ sendo al, a2, bl, b2 quaisquer letras do alfabeto. A virgula 
separa os intervalos de letras e o sinal - determina o intervalo. As letras que nao estiverem em 
nenhum dos intervalos tera o seu tipo dado pela declaragao implfcita. O comando seguinte 
indica que as variaveis que comegam com as letras a, b, c e de r ate z sao do tipo tipoi. 

implicit TIPOI (a, b, c, r-z) 

os espagos sao usados para dar clareza e sao ignorados pelo compilador. Quando nao se 
deseja que nenhuma variavel seja declarada implicitamente usa-se o comando 'implicit 
none'. Se este comando for usado e uma variavel citada no programa nao estiver em 
nenhuma outra declaragao o complilador acusara urn erro. 

Para se declarar variaveis que sejam matrizes e vetores deve-se indicar suas 
dimensoes logo apos o nome da variavel; entre parenteses, e separadas umas das outras por 
virgula. Ex.: a(4,3) indica uma matriz ‘a’ de 4 linhas por 3 colunas. 

As variaveis podem receber valores iniciais usando ‘/valor/’, logo apos sua 
declaragao. No caso de vetores e matrizes devem ser dados os valores para todos os 
elementos de cada linha em sequencia. 


Tipos de Variaveis 


Inteiras (INTEGER) 

Podem assumir os seguintes valores: 
INTEGER*! -128 a 127 


INTEGER*2 -32,768 a 32,767 

INTEGER*4 -2,147,483,648 a 2,147,483,647 

INTEGER*4 pode ser representado somente por: INTEGER 

integer d ! a variavel d e inteira do tipo *4 

integer*! a, b, c ! a, b e c sao inteiras do tipo *1 


integer a/6/, b (2,2)/0,1,2,3/ 


! a 
! b 


6 

"0 1 
2 3 


Os numeros apos o * indicam quantos bytes a variavel ocupa na memoria do computador. Esta 
observagao e valida para todos os tipos de variaveis. 
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Reais (REAL) 

Precisao simples, 6 casas decimals (padrao): 

REAL*4 ou REAL ±3.402823E+38 

Incremento minimo de ±1.175494E-38 

Precisao dupla, 15 casas decimals (padrao): 

REAL*8 ou DOBLE PRECISION ±1.797693134862316D+308 

Incremento minimo de ±2.225073858507201 D-308 

A parte exponencial deve ser separada por urn ‘d’ ou ’D’ no lugar do ‘e’ ou ‘E’ para real do tipo 
* 8 . 

N77 - podem ser usados o ‘e’ ou ‘E’ para separar a parte exponencial. Nao so isso mas 
tambem todas as outras fungoes (item 6 Fungoes intrinsecas) podem ser iguais a de urn real, 
nao sendo necessario o uso de fungoes especiais para este tipo de valor. 

implict real(a-z) ! todas as variaveis sao reais 

integer d ! a variavel d e inteira mesmo com a 

! declaragao acima 


Complexas (COMPLEX) 

Precisao simples, 6 casas decimals: 

COMPLEX*8 ou COMPLEX 
Precisao dupla, 15 casas decimals: 

COMPLEX*16 

Os valores que urn complexo pode assumir sao os mesmos que os reais. 

complex c/(4.,.3)/ ! c vale 4,0 reais e 0,3 imaginarios 

Alfanumericas (CHARACTER) 

CHARACTER NOME*w 

Onde w representa o numero maximo de caracteres que a variavel pode conter dentro do 
programa. 

Ou CHARACTER *wvar1,var2 


(varl e var2 possuem o mesmo tamanho w) 
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Ou CHARACTER (LEN = w) varl, (LEN=w2) var2 

(varl tern tamanho w e var2 tamanho w2) 

cHaRaCtEr loucura/'alta'/ ! Fortran nao faz diferenga 

! entre maiusculas e minusculas 
character data*8,*9 data2,data3 ! data pode conter 8 caracteres 

! e data2 e data3 9 caracteres 


Logicas (LOGICAL) 

LOGICAL NOME 

Podem assumir os valores .TRUE. (VERDADEIRO) ou .FALSE. (FALSO) 
Ou somente T e F ou ainda 1 e 0 ou diferente de zero e 0. 


5. Operadores 


Atribuigao 

A variavel ou identificador que estiver a esquerda do sinal de atribuigao =’ recebem o 
valor da expressao, constante ou variavel que estiver a direita. 

Identificador = Expressao 


nome = 'Engenharia Quimica' 

ano = 1999 

datal = "12\10\98" 

data2 = "20\11\98" 

data3 = "15\3\99" 

temp(1)= 25.6 

temp(2)= 22.4 

temp(3)= 22.8 


! nao se pode usar acentuagao 
! nao e preciso de no final 

! as strings nao precisam usar 
! todo o campo a que tern direito 

! atribuindo valores a vetores 


F90 - estas declaragoes poderiam estar na mesma linha desde que fossem separadas por 
ponto e virgula ‘;’- 

data3 = "15\3\99";temp(1)= 25.6;num_dias= 3 

Operadores Literals 

Uma fungao util para variaveis literals e a concatenagao, ou a jungao de duas ou mais 
palavras. Em FORTRAN a concatenagao e feita pelo operador 7/’. 

a = 'tele' 
b = ’visao' 

c = a//b ! c = 'televisao' 
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Operadores Aritmeticos 

Executam operagoes aritmeticas comuns. 


FORTRAN 



+ 

+ 

soma 

- 

- 

Subtragao 

★ 

X 

Multiplicagao 

/ 

4- 

Divisao 


a p 

Potenciagao 


Quando uma variavel inteira recebe o resultado de uma divisao com resto, este resto e 
desprezado ou seja o valor e truncado. 

C = A* * 2 + B* * 2 ! c = a 2 + b 2 

D = E** (1/2) ! d = e 1/2 

Operadores Relacionais 

Comparam variaveis, constantes ou expressoes e retornam ‘.TRUE.’, T ou ‘T se a 
comparagao for verdadeira, ‘.FALSE.’, ‘F’ ou ‘0’ se a comparagao for falsa. 


FORTRAN 

F90 



.LT. 

< 

< 

MENOR QUE 

.LE. 

< = 

< 

MENOR OU IGUAL QUE 

.EQ. 

= = 

= 

IGUAL A 

.NE. 

/= 

* 

DIFERENTE DE 

.GT. 

> 

> 

MAIORQUE 

.GE. 

>= 

> 

MAIOR OU IGUAL QUE 


20 .ne. 30 ! verdadeiro 

1000 .It. 500 ! falso 

Operadores Logicos 

Sao usados quando sao necessarias mais de uma condigao relacional ou quando e 
preciso inverter seu resultado. 


FORTRAN 


.AND. 

Jungao - verdadeiro se os dois operadores 
forem verdadeiros 

.OR. 

Disjungao - verdadeiro se um dos dois 
operadores forem verdadeiro 

.NOT. 

Negagao - verdadeiro se o operador for falso 

.NEQV. ou .XOR. 

Desigualdade Logica - verdadeiro se 
somente um dos operadores for verdadeiro 

.EQV. 

Igualdade Logica - verdadeiro se os dois 
operadores forem falsos ou verdadeiros 


10.GT.5 

.AND 

. 20.GT.25 

! .FALSE. 

ou 

0 

10.GT.5 

.OR. 

20.GT.25 

! .TRUE. 

ou 

1 

.NOT. 20 

. GT . 

25 

! .TRUE. 

ou 

1 

10 > 5 . 

XOR. 

20 >= 25 

! .TRUE. 

ou 

1 
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.FALSE, ou 0 
.TRUE. ou 1 
.FALSE, ou 0 

Prioridade 


10.GT.5 .NEQV. 25.GT.20 
10 < 5 .EQV. 20 <= 25 
10.LT.5 .EOV. 25.GT.20 


FORTRAN usa a seguinte relagao de prioridades: 


Operador 



I 8 

★ 

2 s 

/ 

2 s 

+ 

3 s 

- 

3 s 

.EQ. 

4 8 

.NE. 

4 8 

.GT. 

4 8 

.GE. 

4 8 

.LT. 

4 s 

.LE. 

4 s 

.NOT. 

5 8 

.AND. 

6 s 

.OR. 

7 - 


O uso de parenteses pode ser feito para trocar a ordem de prioridade. 

(20.GT.10 .AND. 20.GT.25) .OR. (10.LT.20 .AND. 10.LT. (3*10) ) 

! .TRUE. 


6. Fungoes Intrmsecas 


Existem varias fungoes predefinidas em FORTRAN, que podem ser usadas em 
qualquer parte do programa. 

Fungoes Trigonometricas 




Tipo de Argumento 

Tipo da Fungao 

SIN (x) 

seno (radianos). Se x for complexo, a parte real e 
assumida como valor em radianos. 

Real ou complexo. 

REALM 

AS IN (x) 

Arcoseno (radianos). Retorna valores na faixa [- 

n/2, n/2 ] 

Real, |x| .le. 1 

REALM 

COS (x) 

Coseno (radianos) Se x for complexo, a parte real 
e assumida como valor em radianos. 

Real ou complexo 

REALM 

ACOS (x) 

Arcocoseno (radianos)) Retorna valores na faixa 
[ 0, 71 ] 

Tangente (radianos) 

Real, |x| .le. 1 

REALM 

TAN (x) 

Real 

REALM 

ATAN (x) 

Arcotangente (radianos). Retorna valores na faixa 
[-n/2, n/2 ] 

Real 

REALM 

SINH (x) 

Seno Hiperbolico (radianos) 

Real 

REALM 

COSH (x) 

Coseno Hiperbolico (radianos) 

Real 

REALM 

TANH (x) 

Tangente Hiperbolica (radianos) 

Real 

REALM 
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Outras fungoes trigonometricas podem ser encontradas no Anexo A. 

Fungoes Diversas 




Tipo de Argumento 


ALOGIO (x) 

logaritmo de x na base 10 

real 

real 

ALOG (x) 

logaritmo neperiano de x (x > 0) 

real 

real 

EXP (x) 

o numero e (base dos logaritmos 
neperianos) elevado a x 

real 

real 

ABS (x) 

valor absoluto de x 

real 

real 

IABS (x) 

valor absoluto de x 

inteiro 

inteiro 

IFIX (x) 

conversao de real para inteiro, truncando 

real 

inteiro 

FLOAT (x) 

conversao de inteiro para real 

inteiro 

real 

DBLE (x) 

converte para dupla precisao 

real 

real (dupla precisao) 

CMPLX (x) 

converte para o tipo complexo 

real 

complexo 

SIGN (x,y) 

fornece valor positivo de x se y > 0 e 
negativo de x se y < 0 

real 

real 

MOD (x,y) 

resto da divisao de x por y 

inteiro 

inteiro 

AMOD (x,y) 

resto da divisao de x por y 

real 

real 

SORT (x) 

raiz quadrada de x (x > 0) 

real 

real 


Outras fungoes intrinsecas podem ser encontradas no Anexo A. 


7. Fungoes e Subrotinas 

Fungoes e subrotinas podem ser usadas para economizar espago e tempo de 
programagao ja que podem ser usadas varias vezes num mesmo programa. Outro ponto 
importante e que elas podem dar ao programa maior clareza, pois varias sequences de 
calculos ou execugoes podem vir separadas do restante dos comandos. 

O que da grande versatilidade as fungoes e subrotinas, sao os argumentos passados a 
elas, que quando variam produzem resultados diferentes. As fungoes e subrotinas podem vir 
em qualquer parte do programa, mas o mais comum e que aparegam no fim (apos o ‘end’ de 
termino do programa), por motivo de clareza. As variaveis e rotulos usados em fungoes e 
subrotinas sao locais e por isso devem ser declarados novamente, podendo ser usados os 
mesmos nomes de variaveis e rotulos de outras fungoes e subrotinas ou mesmo do programa 
principal. Os parametros necessarios devem ser passados junto com a chamada da fungao ou 
subrotina, devem vir entre parenteses e separados por virgula. Os nomes das variaveis nao 
precisam ser os mesmos na chamada e definigao de uma fungao ou subrotina, devendo 
apenas estar na mesma ordem. 

Fungoes 


Retornam sempre urn valor, e a ela podem ser passados qualquer numero de 
parametros. As fungoes funcionam de forma semelhante as fungoes intrinsecas, com a 
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diferenga de que agora e o programador que define o que a fungao deve gerar como resultado. 
O tipo da fungao deve ser declarado no programa principal, como se fosse uma variavel 
comum. Uma fungao pode utilizar outras fungoes. 

Chamada: 

nome_da_fungao(lista_de_parametros) 

Definigao: 

function nome_da_fungao(lista_de_parametros) 

definigao e declaragao das variaveis e constantes locais 

seqiiencia de comandos 

return 

end 

A palavra chave ‘return e opcional, pode aparecer em qualquer ponto e mais de uma 
vez. Ela indica que o comando deve retornar ao programa principal ou a fungao ou subrotina 
que a chamou. 

A fungao retornara o valor do ultimo comando do tipo: 

nome_da_fungao = expressao 

Exemplo: 


volume = gas_ideal(T,P,3) ! volume recebe o valor gerado pela 

! fungao gas_ideal 

function gas_ideal(temp,press,n_mols) 
implicit none 

real temp,press,n_mols,gas_ideal 
gas_ideal = n_mols*8.314*temp/press 
return 
end 


Subrotinas 

Nao retornam nenhum valor, e tambem a elas podem ser passados qualquer numero de 
parametros inclusive nenhum. As subrotinas podem conter quaisquer tipos de comandos como 
imprimir resultados, abrir arquivos (estes serao vistos a frente, proximo item Leitura e 
Impressao) ou executar calculos. Como ocorrem com as fungoes, as subrotinas podem 
‘chamar’ outras subrotinas ou fungoes. 
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Chamada: 


call nome_da_subrotina (lista_de_parametros) 


Definigao: 

subroutine nome_da_subrotina (lista_de_parametros) 
definigao e declaragao das variaveis e constantes locais 
seqiiencia de comandos 

return 

end 

A palavra chave ‘return’ e opcional. 

Exemplo: 

call converte_unidades ! chama a subrotina para converter as 

! unidades 

subroutine converte_unidades 
implicit none 

real temp,press,n_mols,gas_ideal 
T = temp + 273.15 
P = press*101325 


volume = gas_ideal(T,P,3) 


end 


! chama a fungao com os valores 
! corrigidos de T e P 


8. Leitura e Impressao 

Na maior parte dos programas e preciso haver uma interagao entre o programa e o 
usuario. Essa interagao pode ser feita em FORTRAN pelos comandos de leitura e escrita de 
dados. Esses comandos na sua forma mais simplificada possuem a seguinte estrutura: 

leitura : 

read (unidade, formato) lista_de_parametros 

impressao: 

write (unidade, formato) lista_de_parametros 

ou 

print formato, lista_de_parametros 

Onde ‘ iista _ de_parametros representa os dados que serao impressos, e devem vir 
separados por virgula. Podendo conter variaveis ou expressoes alfanumericas, estas ultimas 
devem vir entre apostrofos ‘ ‘. ‘ unidade ’ representa a unidade onde os dados serao impressos 
ou de onde serao lidos; tela, teclado, impressora ou arquivo. ‘formato pode conter uma lista 
de formatos de impressao (proximo item, Formatos), urn rotulo que indique urn comando 
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‘format’ (que contenha a lista de formatos) ou o simbolo que indica impressao ou leitura de 
forma livre. 

As unidades ‘6’ e se nao forem definidas dentro do programa, serao consideradas 
como a tela do computador {‘write’ ou ‘print’). Da mesma forma as unidades ‘5’ ou '*’ sao 
definidas como o teclado (‘ reacf ). O comando ‘print’ imprime sempre os resultados na 
unidade definida por ou na tela caso nao haja nenhuma definigao para de uma unidade 
especificada pelo 

Na leitura os dados devem vir separados por espagos ou vir na linha seguinte. Caso se 
tenham mais dados em uma linha do que os que serao lidos por urn comando ‘read’ eles 
serao desprezados, inclusive pelo proximo comando ‘read’. Na escrita os dados virao urn apos 
os outros separados por espagos (no caso de ‘strings’ virao sem espagos de separagao), ou 
na linha seguinte quando nao houver mais espago. O proximo comando ‘write’ ou ‘print’ 
comegara a escrever na linha seguinte. 

F90 - para que se leia ou escreva dados na mesma linha mesmo apos mudar o comando 
pode-se usar a opgao ‘advance^' opcao'’ no comando anterior. Onde ‘opcao pode ser ‘ yes’ 
ou ‘no e indica se o comando deve ou nao avangar automaticamente para a proxima linha. 
Sao usados somente nos comandos ‘read’ e ‘write’ onde a opgao formato nao seja livre. 

write (*, 2 ,advance='no' ) 'Engenharia' 
write (*,2) ' Quimica' 

2 format (a) 

imprime: Engenharia Quimica 

a significa que sera impressa uma string de qualquer tamanho (item 9, Formatos). 

Outras opgoes de impressao e leitura podem ser encontradas no Anexo B. 


9. Formatos (leitura ou impressao) 

Os formatos servem para que os dados sejam impressos ou lidos de uma forma 
especifica, determinada pelo programador. Os formatos sao compostos por uma sequencia de 
especificagoes que determinarao como os dados serao processados. Cada uma dessas 
especificagoes deve vir separada por virgulas. Pode-se ainda imprimir constantes numericas e 
alfanumericas, sendo que esta ultima deve vir entre apostrofos 1 ‘. O uso do no lugar do 
formato indica que todos os dados serao impressao ou lidos de forma livre, com o numero de 
casas especificado pelo proprio compilador. E urn recurso util para se evitar erros. 
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O FORTRAN nao considera a primeira coluna da unidade de leitura e impressao 
quando a saida ou entrada e formatada, por isso deve-se incluir uma casa de impressao em 
branco a mais para dados. Para formato livre nao e necessario pois o FORTRAN os posiciona 
automaticamente. 

Quando mais de urn dado usar a mesma especificagao, ela pode ser feita da seguinte 
forma: nespecificagaol, n2especificagao2 OU n (especificagaol, 

especificagao2, .. .), onde n e n2 representam o numero de vezes que a especificagao 
ou sequencia de especificagoes deve se repetir. 

Caso o numero de especificagoes seja menor que o de variaveis a serem lidas ou 
impressas, a ultima especificagao ou a ultima sequencia, caso seja usado o recurso 
n (especificagaol, especificagao2, ...), sera repetida ate que se complete o 
numero necessario. Isto nao e valido para constantes inclusas nos comandos de leitura e 
impressao. 

Quando o numero de especificagoes e maior que os de dados a serem impressos as 
ultimas serao desprezadas. 

A forma de se declarar os formatos e a seguinte: 

r format (especificagaol, especificagao2, ...) 

onde r e urn numero inteiro, e representa o rotulo do ‘format’. Urn mesmo ‘format’ pode ser 
usado por varios comandos de escrita e leitura. 

10 format (2x,a,I) ! imprime 2 espagos em branco, uma 

! string e um valor inteiro 

N77 - o formato pode vir entre apostrofos e parenteses 1 (esp.i, esp2, . .)’, dentro do 
proprio comando de impressao ou leitura. 

print '(esp.)', varl 

write (*, ' (esp.1,esp.2 )') varl,var2 

read (*, ' (esp.1,esp.2 )') varl,var2 

As strings devem vir entre apostrofos duplos (‘’string”) nesse formato. 
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Formato 

Uso 


lw[.m] 

Valores Inteiros 


Fw.d 

Valores Reais 


Ew.d[Ee] 

Valores Reais com expoente 


Gw.d[Ee] 

Mesmo que lw[.m], Ew.d[Ee], Lw e A[w] 


Dw.d 

Valores Reais de Dupla Precisao 


Lw 

Valores Logicos 


A[w] 

Sequencia de Caracteres 

N77 

Zw_hexedit 

Valores Hexadecimals 

F90 

B w[.m] 

Valores Binarios 

F90 

0 w[.m] 

Valores Octadecimais 

F90 

ENiv.o(Ee] 

Valores Reais em Notagao de Engenharia 

F90 

ESw.d[Ee] 

Valores Reais em Notagao Cientifica 


‘w’ representa o tamanho do campo a ser impresso ou lido, ‘m’ representa o numero de zeros 
que vira antes do numero, ‘d’ o numero de casas decimals e ‘e’ o numero de casas para o 
expoente. 

O ponto decimal, o ‘e’ do expoente e o sinal devem ser contados ao se dar o tamanho 
do campo (‘w’). Ao ler urn dado que nao possui ponto decimal e no seu formato e esperado urn, 
o compilador lera este dado como se la houvesse urn ponto. 

12345 

read (*,' (f5.3)') a => a = 12.345 

Quando o ponto existe mas nao esta na posigao especificada, a sua posigao original e 
mantida. 

12.345 

read (*,' (f5.4)') a => a = 12.345 

A notagao com zeros ‘m’ so e valida quando m e maior que o numero de casas que o 
numero ocuparia no formato livre. 

a = 555 

print '(i5.4)',a => 0555 

Nas notagoes com expoente (ENw.d[Ee], ESi/i/.c/[Ee], ...) nao se pode omitir o ‘E’ ou ‘e’. 
Sempre que houver este termo, a parte exponencial vai existir independente do seu valor. 

a = 12.345 
b = 12345.789e6 
write (*,1) a,b 

1 format (' a=',el0.4e3, ' e b=',el0.4e3) 

=> a=.1235E+002 e b=.1235E+011 

Caso as strings sejam maiores que o espago reservado a elas, serao tornados apenas 
os w primeiros caracteres. Se forem menores, elas serao alinhadas a direita e os outros 
espagos deixados em branco. 
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'belo horizonte' 

read (*, '(alO)') nome => belo horiz 

write (*, '(al5)') nome => belo horiz 

F90 - os valores dos campos podem ser variaveis desde que venham entre '<vari>\ Nao e 
valido para ‘print’. 

a = 5 

b = 'FORTRAN' 

write (*, ' (a<a>)') b => FORTR 

Para valores numericos que precisam de mais casas de impressao que as indicadas no 
‘format’, serao impressos somente “’ naquele campo. 

pi = 3.1416 

print '(lx,E7.3e2)', pi => ******* 

print ' (lx,E8.3e2)', pi => .314E + 01 

Outros Recursos Para Formatos 

Alguns recursos adicionais sao permitidos para ‘read’ ou ‘write’. 



Formato 

Uso 


string 

Transmite uma string para a saida 

F90 

Q 

A variavel recebe o numero de espagos que o valor ocupa 


nH 

Transmite os proximos n caracteres para a saida 


Tc 

Move o ponto de leitura ou escrita para a posigao c 


TLc 

Move o ponto de leitura ou escrita c posigoes a esquerda 


TRc 

Move o ponto de leitura ou escrita c posigoes a direita 


nX 

Deixa n posigoes em branco 


SP 

Escreve o sinal V onde ele e opcional 


SS 

Omite o sinal ’+’ onde ele e opcional 


S 

Retorna ou padrao ‘ss’ 


/ 

Muda de linha 

N77 

\ 

Comega a escrever no ponto onde a ultima escrita parou 

N77 

$ 

Comega a escrever no ponto onde a ultima escrita parou 

Termina a impressao se nao houver mais itens na lista 


kP 

0 numero e multiplicado por 10 elevado a -k (se o numero ja possuir expoente nao ha 
efeito) 


BN 

Ignora os espagos em branco 


BZ 

Transforma os espagos em branco em zeros 


Antes ou depois de ‘,", /, \, nH, $ ou : a virgula e opcional. 

real a, b 

character dia*20 

a = 23.99 

b = 55.8e-3 

dia = 'Segunda-feira' 

write (*, ' (5x,sp,el0.3e2,2x,enl2.3e3) ') a, b 
write (*,'(/2x, ''hoje e '',a8)') dia 
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produz o seguinte resultado: 

+.240E+02 +55.800E-003 

hoje e Segunda- 


10. Arquivos 

Quando se deseja trabalhar com grandes quantidades de dados, o melhor e armazena- 
los numa unidade de memoria secundaria, ou seja em arquivos. Urn programa pode gerar 
tantos dados que todos eles nao caberiam na tela de uma so vez, e ainda seriam perdidos ao 
finalizar o programa. Os dados salvos em arquivos podem ser usados pelo proprio programa ou 
exportados para serem processados de outra forma. Arquivos de leitura economizam urn tempo 
precioso para o usuario do programa pois ele nao vai precisar enviar dados via teclado, e com 
arquivos milhares de dados podem ser lidos em fragoes de segundos. 

O primeiro passo para se usar arquivos em FORTRAN e indicar ao programa qual e o 
nome do arquivo e o numero da unidade referente a ele. 

open (unidade, file=' nome.ext' ) 

onde unidade deve ser urn inteiro maior ou igual a zero, e e uma referenda a este arquivo. O 
numero da unidade deve vir no comando ‘read’ ou ‘write’ indicando que os dados serao 
retirados ou armazenados nesta unidade. A disposigao dos dados em arquivos e a mesma 
utilizada nas unidades de entrada e saida padrao (Item 8, Leitura e Impressao), com uma unica 
diferenga, as strings devem vir entre apostrofos ‘ ‘. A abertura do arquivo pode ser feita em 
qualquer parte do programa (inclusive dentro de fungoes e subrotinas), desde que venha antes 
de urn comando que o utilize. 

F90 - o rotulo ‘unidade’ pode ser uma string. 

Outras opgoes para abertura e fechamento de arquivos podem ser encontradas no 
Anexo B. 

Apesar de se poder usar qualquer extensao de arquivo ou ate omiti-la, as extensoes 
.dat para leitura e .out para saida sao mais comumente encontradas. 

Quando nao for utilizado o comando ‘open’, alguns compiladores emitirao uma 
mensagem na tela pedindo urn nome, podendo o usuario escolher urn nome diferente a cada 
vez que o programa for executado. Em outros compiladores serao dados nomes padrao como 
fort. 1, fort.2, etc para cada arquivo utilizado que nao foi aberto. Todos os arquivos devem estar 
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ou serao criados no mesmo diretorio em que estiver o programa a menos que se de como 
nome o caminho para um outro diretorio. Os caminhos seguem o mesmo padrao do DOS. 

Urn arquivo pode tambem ser fechado, isto fara com que o FORTRAN coloque uma 
marca de fim de arquivo naquele ponto, esta marca pode ser identificada por outro comando ou 
fungao (Anexos A e B). 

close (unidade, status=' estado' ) 

OU 

endfile unidade 

onde status='estado' e opcional. Estado pode ser ‘keep que mantem o arquivo na 
memoria (este e padrao esta opgao e omitida), ou ‘delete’ que apaga o arquivo da memoria. 

Arquivos fechados podem ser reabertos em qualquer parte do programa. 

Outros Recursos 

rewind unidade (volta o controle ao primeiro espago do arquivo) 

backspace unidade (volta o controle um campo no arquivo) 



Programa 

Arquivo ‘arqui.dat’ 

character * 

15a,b,c 

' Quimica' ' Fisica' 

open(2 0,file='arqui . out' ) 

' Engenharia' 

open (30,file='arqui.dat') 

Arquivo ‘arqui.out’ 

read (30,*) 

a 

este e um 

write(20,*) 

' este e um ' 

arquivo de 

write(20,*) 

' arquivo de ' 

saida 

write(20, *) 

' saida ' 

Quimica 

read (30,*) 
rewind 30 

b 

Engenharia Quimica 

read (30,*) 

c 


write(20,*) 

a 


write(20, *) 
end 

b, c 
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Capi'tulo 2: Estruturas de Programagao 

1. Estrutura Sequencial 


Os programas em FORTRAN devem conter os comandos escritos na ordem em que 
serao executados, com excegao das fungoes, subrotinas e lagos de repetigao. Portanto urn 
programa em FORTRAN deve seguir o seguinte padrao: 

declaragao 1 
declaragao 2 

declaragao n 
comando 1 
comando 2 

comando n 
end 

onde as declaragoes sao opcionais (item 4 Capitulo 1). 

O comando ‘end indica o fim do programa. Se o programador preferir pode finalizar o 
programa prematuramente usando os comandos ‘stop ou ‘call exit'. 



Resultado 

integer*l a,b 

10 

a=l 0 

20 

b=2 0 
c=30 

write (*,* ) a 
write ( * , * ) b 
write ( *, *) c 
end 

30.000000 

integer*l a,b 

10 

a=l 0 
b=2 0 
c=30 

write (*,*) a 
write ( * , *) b 
stop 

write ( * , *) c 
end 

20 

integer*l a,b 
a=l 0 
b=2 0 
c=30 

write (* , *) a 
call exit 
write ( * , *) b 
write ( * , *) c 
end 

10 
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2. Comando ‘GO TO’ ou ‘GOTO’ 


O quando se deseja que o comando do programa avance ou recue em sua estrutura de 
forma nao sequencial, usa-se o comando ‘goto ou ‘go to’. 

goto r 

onde r e urn rotulo de uma linha que possui ou nao urn comando. Como uma linha rotulada nao 
pode estar em branco pode-se usar a palavra chave ‘continue , que nao ira interferir em nada 
no programa. 



Resultado 

goto 20 

10 write (*,*) ' linha 10' 

20 write (*,*) ' linha 20' 

30 write (*,*) ' linha 30' 

end 

linha 20 
linha 30 

goto 1 

10 write (*,*) ' linha 10' 

1 continue 

20 write (*,*) ' linha 20' 

2 continue 

30 write (*,*) ' linha 30' 

end 

linha 20 
linha 30 


3. Estrutura Condicional 


Estrutura Condicional Simples 

if (expressao de teste) comando 

OU 

if (expressao de teste) then 
seqiiencia de comandos 

end if 

Quando a expressao de teste for verdadeira os comandos serao executados, quando 
for falsa o programa segue para o proximo comando logo abaixo da estrutura condicional. A 
primeira opgao so e valida quando for executado urn unico comando. Este comando pode ser 
de qualquer tipo, atribuigao, escrita, leitura, ‘goto’ ou interrupgao do programa. 

Estrutura Condicional Composta 

if (expressao de teste) then 
seqiiencia de comandos 1 

else 

seqiiencia de comandos 2 

end if 
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Quando a expressao de teste for falsa a sequencia de comandos 2 sera executada. 
Mesmo quando so ha um comando na sequencia de comandos 1, nao se pode omitir a palavra 
chave ‘then. 

E permitido o uso de estruturas condicionais umas dento das outras. 



Resultado 

implicit integer (a-z) 
a=l 0 
b=2 0 
c=30 

if (a.lt.b) then 
write (*,*) ' a<b' 

a=b+l0 
else 

write (*,*) ' a>b' 

b=a-5 
end if 

if (c.ge.20) write(*,*)' c=',c, a, b 
end 

a<b 

c— 30 30 20 


Estrutura Condicional Composta Simplificada 


Uma outra forma de se usar uma estrutura condicional composta (somente N77 e F90) 
e usando o comando ‘case’. 


N77 

F90 

SELECT CASE (exp. case) 

nome_case: SELECT CASE (exp. case) 

CASE (lista de seiegao 1) 

CASE (lista de seiegao 1) 

comandos 1 

comandos 1 

CASE (lista de seiegao 2) 

CASE (lista de seiegao 2) 

comandos 2 

comandos 2 

CASE (lista de seiegao n) 

CASE (lista de seiegao n) 

comandos n 

comandos n 

CASE DEFAULT 

CASE DEFAULT 

comandos d 

comandos d 

END SELECT 

END SELECT nome_case 


onde ‘exp. case' e uma expressao ou constante inteira, logica ou literal (somente um 
caractere ‘character* - !’). Caso o valor de ‘exp. case’ estiver na ‘lists de seiegao T, os 
‘comandos T serao executados. Se o valor nao estiver na ‘lists de seiegao T o 
computador ira avaliar a ‘lists de seiegao 2’, se for verdadeira serao executados os 
‘comandos 2’ e assim ate terminar OS comandos ‘case (lista de seiegao n)’. O 
comando ‘case default’ e opcional, e faz com que os ‘comandos d’ sejam executados caso 
nenhuma das outras avaliagoes sejam verdadeiras. ‘nome_case e opcional e deve seguir as 
mesmas regras usadas para dar nomes as variaveis. A sua utilidade e apenas de dar maior 
clareza ao programa. 
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As listas de selegao podem ser da seguinte forma: 


Estrutura 

Condigao para ser verdadeira 

case (valor) 

Exp. teste igual a valor 

case (:valor) 

Exp. teste menor que valor 

case (valor:) 

Exp. teste maior que valor 

case (valorl :valor2) 

Exp. teste entre valorl e valor2 

case (valorl ,valor2,...,valorn) 

Exp. teste igual a valorl ou igual a valor2 ou ... valorn. 


Nao e permitida a superposigao de valores. 

Os valores literals devem vir entre apostrofos e seus valores serao avaliados de acordo 
com o padrao ASCII. Uma tabela com os valores ASCII pode ser encontrada no Anexo C. 



Resultado 

i=2 0 

select case (i) 
case (10) 

write (*,*) 'a=l0' 

case (20) 

write (*,*) 'a=20' 

case (11,19) 
write (*,*) 'a>ll a<19' 
end select 
end 

a=2 0 

character i*l 

i=' h' 

valor_i: select case (i) 
case ('a','b','c') 
write (*,*) 'i=a ou b ou c' 

case ('d':'m') 

write (*,*) 'i esta entre d e m' 
case ('D':'M') 

write (*,*) 'i esta entre D e M' 
end select valor_i 
end 

i esta entre d e m 


E importante observar que as letras maiusculas e minusculas possuem valores ASCII 


diferentes. 


4. Estruturas de Repetigao 


Quando o mesmo comando precisa ser executado varias vezes ate que se atinja uma 
certa condigao ou urn numero certo de repetigoes, o melhor e usar as estruturas de repetigao. 
Estas estruturas sao bem simples e podem economizar varias linhas de comando. 

Estruturas de Repetigao Simples 

rl if (condigao_de_teste) goto r2 
comandos 

goto rl 
r2 continue 
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Esta e uma estrutura de repetigao muito simples, mas nao recomendada para 
programagao. Estruturas mais aceitas, pois possuem equivalentes em outras linguagens, sao 
da seguinte forma: 

do rl var=nl,n2,n3 

sequencia de comandos 

rl continue 

OU 

N77 - do var=nl,n2,n3 

seqiiencia de comandos 

end do 

Var’ e uma variavel inteira ou real que recebe inicialmente o valor ‘nT, a sequencia de 
comandos se repete, e o valor de Var’ aumenta de ‘n3’ a cada vez que o comando volta para 
a linha do ‘do. A repetigao so para quando o valor de Var’ ultrapassa ‘n2\ 

Caso o programa exija uma contagem regressiva o valor de n3 deve ser negativo e nl 
maior que n2. 

A palavra chave ‘end do’ pode ser escrita como ‘enddo. ‘nl’, ‘n2’ e ‘n3’ podem ser 
constantes ou variaveis inteiras ou reais, positivas ou negativas. Quando 'n3' for igual a urn ele 
pode ser omitido. 

DO WHILE (F90) 

Uma forma de se usar uma expressao de teste no comando ‘do, e o uso do ‘do 

while’. 

do while (exp. teste) 

sequencia de comandos 

end do 

Enquanto ‘exp. teste’ for verdadeira a sequencia de comandos sera executada. 



Resultado 

real*8 a,b 

a=0 

b=0 

1 if(a.lt.O) goto 2 
a=cos(b) 

b= b+.125 
write (*,*) a 
goto 1 

2 continue 
end 

1.000000000000000 

9.921976672293290E-001 

9.689124217106447E-001 

9.305076219123143E-001 

8.775825618903728E-001 

8.109631195052179E-001 

7.31688868873820 9E-001 

6.4 09968581633251E-001 

5.40302 3058681398E-001 

4.3117 65167 98 6662E-001 

3.15322 3 62 3 952 687E-001 

1.945477079889872E-001 

7.073720166770291E-002 

-5.417713502693632E-002 
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Resultado 

integer i/1/, j / 1 / 

2 

1 

do while (i) 

3 

1 

\ —1 
+ 
-r~t 

II 

-r~t 

4 

1 

if ( j.eq.5 ) i=0 

5 

0 

print * ,j,i 



end do 



end 



real*8 a(4) 

+2.97 64 6E+000 


i = 1; a(1) = 2.97645984 



a (2) = 576.74e5 

+ 57.67400E+006 


a (3) =.45; a (4) = sin (.5) 



do while ( i.le.4 ) 

+449.99999E-003 


print'(2x,sp,enl6.5e3 ) a(i) 



write ( * , * ) ' -' 

+479.42554E-003 


i = i + 1 



end do 



end 



do i=9,12 

09 


print ' (2x,I2.2) ',i 

10 


enddo 

11 


end 

12 



DO Imph'cito (WIN) 

Nos comandos ‘read’ e ‘ write’ e possivel usar uma estrutura de repetigao semelhante 
ao ‘DO’, mas de forma implicita e mais simplificada. 

read (unidade,formato)(lista_de_parametros, var=nl,n2,n3) 

Onde 'var=ni,n2,n3' tern o mesmo significado que na estrutura ‘DO’. Podem ser 
usadas varias estruturas deste tipo em urn mesmo read ou write desde que venham separadas 
por parenteses. Quando impressos desta forma, os dados ficam na mesma linha. Para leitura 
eles podem vir na sequencia correta na mesma linha ou em linhas diferentes. Os parametros 
em formato serao usados ate que se atinja o seu final, quando isto acontecer o comando muda 
de linha e os formatos sao usados novamente desde o comego. 



Resultado 

integer a(5,3), b ( 3 ) 

11 - 21 - 31 

do i=l,5 

41 - 51 - 101 

PO 

\ —1 

II 

-r~i 

O 

T5 

12 - 22 - 32 

a(i, j) =10*i+j 

42 - 52 - 108 

b ( j ) =100 + j **3 

13 - 23 - 33 

enddo 

43 - 53 - 127 

enddo 


write (*,1) ( (a(i,j), i=l,5) & 


& ,b ( j ) , j = l,3) 


1 format ( 2x,i4,' - ' , i5, ' - ' , i 4) 


end 
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Capi'tulo 3: Recursos de Programagao 


1. Deslocamento 


GOTO Imph'cito 

Outra forma de usar o ‘goto’ e a seguinte: 

goto (rl, r2, rn) variavel 

Onde ‘variavel’ e uma variavel ou expressao inteira que deve ter valor maximo igual 
ao numero de rotulos que estao dentro dos parenteses. Quando esta variavel fiver valor 1 o 
comando do programa vai para a linha rotulada com ‘rl’, quando fiver valor 2 vai para a linha 
com o rotulo r2, e assim por diante. Se o valor de ‘variavel’ for maior que o numero de rotulos o 
comando do programa vai para a linha imediatamente abaixo do ‘goto. 



Resultado 

i=2 

goto (10,20,15) i 

10 write (*,*) ' o valor de i=l' 

goto 1 

20 write (*,*) ' o valor de i=2' 

go to 1 

15 write (*,*) ' o valor de i=3' 

1 continue 
end 

o valor de i—2 


IF Com Deslocamento 

Uma outra maneira de se deslocar num programa, usando agora urn comando if e a 
seguinte: 

if (exp. numerical rl,r2,r3 

‘exp. numerica' nao pode ser complexa. rl, r2, r3 sao rotulos. Se o valor de ‘exp. 
numerics for menor que zero o comando vai para a linha com o rotulo rl, quando for igual a 
zero o comando vai para linha com o rotulo r2 e quando for maior que zero vai para r3. 

A ‘exp. numerics pode ser uma expressao que gere como valores 0 (zero) que sera 
considerado como .false, ou qualquer numero diferente de 0 (zero) que sera considerado 
como .true.. 
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Resultado 

i=l 

i<2 

10 if(i— 2 ) 1,2,3 

i=2 

1 write (*,*) ' i<2 ' 

i>2 

i=2 


goto 10 


2 write (*,* ) ' i=2 ' 


i=3 


goto 10 


3 write ( * ,*) ' i>2 ' 


end 



2. Declaragoes e Atribuicoes Avangadas 

DIMENSION 

Uma outra forma de se declarar vetores e matrizes, com a vantagem de se poderem 
especificar os indices minimos e maximos em cada diregao e usando o comando ‘dimension. 

tipo varl,var2,...,varn 

dimension varl (Lil:Lsl), var2(Li2:Ls2) , . . ., varn(Lin:Lsn) 


ou 

tipo varl(Lil:Lsl), var2(Li2:Ls2), varn(Lin:Lsn) 

‘tipo’ pode ser qualquer tipo de variavel inteira, real, logica, complexa ou literal. Lil, Li2,..., Lin 
sao os indices inferiores, e Lsl, Ls2,..., Ln sao os indices superiores da matriz ou vetor. Os 
valores de Li e Ls podem ser positivos, nulos ou negativos desde que sejam inteiros. Quando o 
valor de Li e omitido, o valor urn e usado como padrao. As variaveis podem ter duas ou mais 
dimensoes, sendo declaradas da mesma forma, com cada dimensao separada das outras por 
virgulas. 

var(Lil:Lsl, Li2:Ls2, ...,Lin:Lsn) 



Resultado 

integer a 

a(-03,+01)=-03 

dimension a(-3:l,3) 

a(-03,+02)=+09 

do i=-3,1 

a(-03,+03)=-27 

do j=l,3 

a(-02,+01)=-02 

a(i,j)=i**j 

a(-02,+02)=+04 

print 1, ' a(',i,',',j,') =' ,a(i,j) 

a(-02,+03)=-08 

1 f ormat ( lx,sp,a,i3.2,a,i3.2 & 

a(-01,+01)=-01 

,a, i3.2) 

a(-01,+02)=+01 

enddo 

a(-01,+03)=-01 

enddo 

a ( + 00,+01)=+00 

end 

a(+00,+02)=+00 


a ( + 00,+03)=+00 


a(+01,+01)=+01 


a(+01,+02)=+01 


a(+01,+03)=+01 
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PARAMETER 

Uma constante pode ser representada por um simbolo no lugar do seu valor, ou seja o 
valor de n, por exemplo, pode ser sempre que preciso referenciado como ‘pi’, no lugar de se 

escrever sempre 3.14159. Bastando para isso o uso do comando ‘parameter . A diferenga 
entre um valor com ‘parameter e uma variavel comum e que com ‘parameter o valor nao 
pode ser modificado em nenhuma parte do programa ou ser lido atraves de um comando 
‘read’. O tipo da constante deve ser especificado antes ou serao usadas as atribuigoes 
implicitas (item 4 Capitulo 1). 

tipo constantel, constante2,... 

parameter ( constantel = valor, constante2 = valor,...) 

Os parenteses sao opcionais. ‘tipo’ pode ser ‘integer, ‘real’ ou qualquer outro tipo 
de variavel. Em ‘parameter nao se podem declarar vetores e matrizes. 

F90 - Uma forma simplificada de se atribuir o valor e o tipo da constante e feito da seguinte 
forma. 

tipo , parameter :: constantel=valor, constante2=valor,... 


Programa 

resultado 

real pi,r(3),a 

real pi,r(3) 

6.291800 

parameter (pi=3.1459) 

parameter (pi=3.1459) 

25.167200 

do i=l,3 

do i=l,3 

56.626200 

r=i**2 

r=i**2 


a=area(r(i),pi) 

call area(r(i),pi) 


print *,a 

enddo 


enddo 

end 


end 




subroutine area(r,pi) 


function area(r,pi) 

real r,a 


real r,area 

a=2*pi*r 


area=2*pi*r 

print *,a 


return 

return 


end 

end 



TYPE (F90) 

Quando varias variaveis estao relacionadas entre si, o melhor e agrupa-las em grupos 
‘type’, de forma que possam ser acessadas pelo nome do grupo. Este e um recurso 
semelhante a programagao orientada a objetos. 

Declaragao: 

type nome_type 
declaragoes 
end type nome_type 
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nome_type e o nome do bloco, e deve seguir as mesmas regras para nomes de variaveis. 
dedaragoes sao declaragoes de variaveis ( tipo variavei). Este bloco pode ser usado 
varias vezes, associando a cada novo grupo um nome. O bloco com esse novo nome tera as 
mesmas variaveis feitas na declaragao. 

Associagao: 

type (nome_type) :: nome 

Atribuigao: 

nome = nome_type (valor das variaveis) 

ou 

nome%nome_variavel = valor 



Resultado 

type anivers 

character nome*10 
character mes*10 
integer*l dia 
end type anivers 
type (anivers) :: helder 
type (anivers) :: keila 
type (anivers) :: carlo 

helder=anivers('Helder','Fevereiro ' ,17) 
carlo=anivers('Carlo','Fevereiro ' ,12 ) 
keila %nome= ' Keila ' 

keila %mes='marco' 

keila%dia=24 

write (*,*) helder%mes 

write(*, *) helder%nome,helder%dia 

write (*,*) carlo%nome,carlo%dia 

write (*,' (lx,a,a,i2)') keila 

end 

Fevereiro 

Helder 17 
Carlo 12 
Keila Agosto 22 


DATA 


O modo mais estruturado de se atribuir valores iniciais a variaveis e pelo comando 
‘data’. As diferengas entre o ‘ data’ e ‘parameter e que as variaveis declaradas em ‘data’ 
podem alterar seu valor durante o programa, e essas variaveis podem ser vetores ou matrizes. 

data varl/valorl/,var2/valor2/,...,varn/valorn/ 

OU 

data varl,var2,...,varn/valorl,valor2,...,valorn/ 

Os valores de vetores e matrizes devem ser declarados todos de uma vez, com a 
separagao entre eles feita por virgula. 
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Resultado 

integer h(3,4),a,b,c 

010203040506 

logical 11,12 

070809101112 

character cor*5 

05 03 10 

data h/1,2,3,4,5,6,7,8,9,10,11,12/ 

T F 

data a/5/,b/3/,c/10/ 

data 11,12,cor/.true.,.false., ' preto'/ 

print '(2x,6i2.2,/,2x,6i2.2)',h 

print ' (2x,3(i2.2,2x) ) ' ,a,b,c 

print ' (2x,17,2x,17 ) ',11,12 

print *,cor 

end 

preto 


3. Designacao de Memoria 

COMMON 

Quando muitos dados devem ser passados a fungoes ou subrotinas, um recurso util e o 
‘common’, que pode resumir este servigo. Um mesmo ‘common pode ser usado varias vezes e 
‘carregar’ muitas variaveis ao mesmo tempo. Este comando deve aparecer de forma igual no 
inicio do programa principal (logo apos a definigao dos tipos de variaveis) e tambem no inicio 
de cada fungao ou subrotina que o utilize. 

common /nome/lista de variaveis/nome2/lista de variaveis2,... 

O nome do bloco e opcional, e se for repetido, as variaveis serao agrupadas em um 
mesmo bloco. A ausencia do nome e o nome 7 /’ tern o mesmo significado. As variaveis de um 
‘common’ sem nome nao podem ser declaradas pelo comando ‘data. Uma mesma variavel 
nao pode ocupar mais de um comando ‘common. 

A ordem em que as variaveis aparecem no common devem ser iguais em qualquer parte 
do programa, apesar de seus nomes poderem variar de uma subrotina ou fungao para outras. 

Na declaragao de um ‘common e recomendavel que se siga uma ordem crescente do 
tamanho das variaveis. O tamanho de uma variavel e dado pelo numero de bites que ela 
ocupa. A sequencia para essa declaragao e: logical, character, integer, real, vetores e matrizes. 
As matrizes e vetores devem seguir esta mesma sequencia de tamanhos (vetores logical, 
vetores character,...). As strings sao consideradas vetores de caracteres. 

Alguns compiladores apenas mostrarao mensagens de advertencia quando esta 
sequencia estiver incorreta, outros nao avaliam esta ordem e consideram como corretas 
quaisquer ordem em que as variaveis aparecerem. 





Programagao em Linguagem FORTRAN 



Resultado 

common /func/a,b 

12.000 

common / /c,d 

2.000 

common e,f 

4.000 

data a,b/l,2/ 


c=3;d=4;e=5 


f=funcao(4) 


call subrotina(5) 


end 


! fungoes e subrotinas 


function funcao(t) 


common /func/a,b 


a=a*2 


funcao=t+a+b 


return 


end 


subroutine subrotina(r) 


common /func/a,b 


common c,d,e,f 


r=r+c+d+e 


print ' (3 (2x,f6.3,/)) ',r,a,f 


return 


end 



BLOCK DATA 

As variaveis declaradas em um ‘common com nome podem receber valores iniciais de 
uma forma mais estruturada. No ‘block data podem ser usados os seguintes recursos: 
common(com nome), parameter, data, dimension e variaveis derivadas de um type. 

block data nome_bloco 
declaragoes e atribuigoes 

end 

O ‘nome_bioco e opcional e deve seguir as mesmas regras para nomes de variaveis. 


4. Modularizacao 

INCLUDE 

Declaragoes, atribuigoes, common e outros comados que estejam em um arquivo de 
texto com o mesmo formato usado no programa podem ser adicionados ao programa principal 
atraves do comando ‘include’. Esses arquivos podem ser adicionados a outros arquivos 
‘include’ ao programa principal e a fungoes e subrotinas. O mesmo arquivo pode ser usado 
varias vezes. Os arquivos serao interpretados como parte do programa, e por isso devem 
seguir as mesmas regras do programa normal escrito em FORTRAN. 
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include 'nome.ext ' 
OU 


include "nome.ext" 

Nome e extensao podem ser qualquer um, mas a extensao ‘.inc’ e a mais comum para 
este tipo de arquivo. E permitido o uso de caminhos completos no lugar do nome. 
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Anexo A: Fun$des Intrinsecas 

1. Fungoes Trigonometricas 





Resultado 

SIN (X) 

seno (radianos). se x for 
complexo, a parte real e 
assumida como valor em 
radianos. 

real ou complexo. 

real*4 

SIND (X) 

seno (graus se x for 
complexo, a parte real e 
assumida como valor em 
graus. 

real ou complexo 

real*4 

CSIN (X) 

seno (radianos) 

complex*4 

complex*4 

CDSIN (X) 

seno (radianos) 

complex*8 

complex*8 

DSIN (X) 

seno (radianos) 

real*8 

real*8 

DSIND (X) 

seno (graus) 

real*8 

real*8 

AS IN (X) 

Arcoseno (radianos). retorna 
valores na faixa [-k/2, tt/2 ] 

real, |x| .le. 1 

real*4 

ASIND (X) 

Arcoseno (graus) retorna 
valores na faixa [-90, 90 ] 

real |x| .le. 1 

real*4 

DAS IN (X) 

Arcoseno (radianos). retorna 
valores na faixa [-k/2, k/2 ] 

real*8 

real*8 

DASIND (X) 

Arcoseno (graus) retorna 
valores na faixa [-90, 90 ] 

real*8 

real*8 

COS (X) 

coseno (radianos) se x for 
complexo, a parte real e 
assumida como valor em 
radianos. 

real ou complexo 

real*4 

COSD (X) 

coseno (graus) se x for 
complexo, a parte real e 
assumida como valor em 
graus. 

real ou complexo 

real*4 

CCOS (X) 

coseno (radianos) 

complex*4 

complex*4 

CDCOS (X) 

coseno (radianos) 

complex*8 

complex*8 

DCOS (X) 

coseno (radianos) 

real*8 

real*8 

DCOSD (X) 

coseno (graus) 

real*8 

real*8 

AQOS (X) 

Arcocoseno (radianos)) 
retorna valores na faixa [ 0, 

K ] 

Arcocoseno (graus) retorna 
valores na faixa [ 0, 180 ] 

real, |x| .le. 1 

real*4 

ACOSD (X) 

real, |x| .le. 1 

real*4 

DACOS (X) 

Arcocoseno (radianos)) 
retorna valores na faixa [ 0, 

7l] 

Arcocoseno (graus)) retorna 
valores na faixa [ 0, 180 ] 

real*8, |x| .le. 1 

real*8 

DACOSD (X) 

— \ 

CD 

P 

CO 

~x~ 

CD 

real*8 

TAN (X) 

tangente (radianos) 

real 

real*4 

TAND (X) 

tangente (graus) 

real 

real*4 

DTAN (X) 

tangente (radianos) 

real*8 

real*8 

DTAND (X) 

tangente (graus) 

real*8 

real*8 

COTAN (X) 

cotangente (radianos) 

real, x nao pode ser 0. 

real*4 

DCOTAN (X) 

cotangente (radianos) 

real*8. x nao pode ser 0. 

real*8 
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Nome 

Definicao 

Parametro 

Resultado 

ATAN (X) 

Arcotangente (radianos). ) 
retorna valores na faixa [- 

n/2, tt/2 ] 

real 

real*4 

ATAND (X) 

Arcotangente (graus).) 
retorna valores na faixa [-90, 
90] 

real 

real*4 

DATAN (X) 

Arcotangente (radianos). 
retorna valores na faixa [- 

n/2, tt/2 ] 

real*8 

real*8 

DATAND (X) 

Arcotangente (graus). 
retorna valores na faixa [-90, 
90] 

real*8 

real*8 

ATAN2 (Y,X) 

Arcotangente (y / x) em 
radianos. retorna valores na 
faixa [-n,n ] 

real, x e y nao podem 
ambos ser 0. 

real*4 

ATAN2D (Y,X) 

Arcotangente (y / x) em 
graus. retorna valores na 
faixa [-180, 180] 

real, x e nao podem ambos 
ser 0. 

real*4 

DATAN2 (Y,X) 

Arcotangente (y / x) em 
radianos retorna valores na 
faixa [-jt,jt ]) 

real*8 x e y nao podem 
ambos ser 0. 

real*8 

DATAN2D (Y,X)h 

Arcotangente (y / x) em 
graus. retorna valores na 
faixa [-180, 180] 

real*8 x e y nao podem 
ambos ser 0. 

real*8 

SINH (X) 

seno hiperbolico (radianos) 

real 

real*4 

DSINH (X) 

seno hiperbolico (radianos) 

real*8 

real*8 

COSH (X) 

coseno hiperbolico 
(radianos) 

real 

real*4 

DCOSH (X) 

coseno hiperbolico 
(radianos) 

real*8 

real*8 

TANH (X) 

tangente hiperbolica 
(radianos) 

real 

real*4 

DTANH (X) 

tangente hiperbolica 
(radianos) 

real*8 

real*8 


2. Fungoes Genericas 





Resultado 

DPROD(A,B) 

a*b 

real*4, real*4 

real*8 

EOF(UNIT) 

verifica o final da unidade 
unit 

integer*2 

logical 

SIGN(X,Y) 

retorna x com o sinal de y 

real ou inteiro 

real ou inteiro 

ISIGN(X,Y) 

retorna x com o sinal de y 

inteiro 

inteiro 

DSIGN(X,Y) 

retorna x com o sinal de y 

real*8 

real*8 
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3. Exponenciais 


O numero ‘e’ elevado a X (e x ) 


Nome 

Parametro 

Resuitado 

CDEXP (X) 

complex*16 

complex*16 

CEXP (X) 

complex*8 

complex*8 

DEXP (X) 

real*8 

real*8 

EXP (X) 

real, inteiro ou complexo 

mesmo que o parametro 


4. Logaritmos 





Resuitado 

LOG (X) 

logaritmo natural 

real ou complexo 

mesmo que o 
parametro 

ALOG (X) 

logaritmo natural 

real*4 

real*4 

DLOG (X) 

logaritmo natural 

real*8 

real*8 

CLOG (X) 

logaritmo natural 

complex*8 

complex*8 

CDLOG (X) 

logaritmo natural 

complex*16 

complex*16 

LOG 10 (X) 

logaritmo na base 10 

real 

mesmo que o 
parametro 

ALOG 10 (X) 

logaritmo na base 10 

real*4 

real*4 

DLOG 10 (X) 

logaritmo na base 10 

real*8 

real*8 


5. Maximos 





Resuitado 

MAX(X1,X2,..) 

maior valor 

qualquer tipo 

maio tipo entre os 
valores 

MAX0(X1 ,X2,..) 

maior valor 

inteiro 

inteiro 

AMAX1 (XI ,X2,..) 

maior valor 

real 

real 

AMAX0(X1 ,X2,..) 

maior valor 

inteiro 

real 

MAXI (XI ,X2,..) 

maior valor 

real 

inteiro 

DMAX1 (XI ,X2,..) 

maior valor 

real*8 

real*8 


6. Minimos 


Semelhante as fungoes de maximo (MIN, MINO, AMIN1, AMINO, MINI, DMIN1) 


7. Restos 


Resto da divisao de X por Y 




Resuitado 

MOD(X,Y) 

real ou inteiro 

real ou inteiro 

AMOD(X,Y) 

real*4 

real*4 

DMOD(X,Y) 

real*8 

real*8 
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8. Raiz Quadrada de X 




Resultado 

SQRT(X) 

real ou complexo 

real ou complexo 

DSQRT(X) 

real*8 

real*8 

CSQRT(X) 

complex*8 

complex*8 

CDSQRT(X) 

complex*16 

complex*16 


9. Truncamento de X 




Resultado 

AINT(X) 

real 

real 

DINT(X) 

real*8 

real*8 


10. Arredondamento de X 




Resultado 

NINT(X) 

real 

inteiro 

DNINT(X) 

real*8 

real*8 

ANINT(X) 

real 

real 

IDNINT 

real*8 

inteiro 


11. Diferenga Positiva Entre X e Y 


( se Y > X o valor e zero) 




Resultado 

DIM(X,Y) 

real ou inteiro 

real ou inteiro 

DDIM(X,Y) 

real*8 

real*8 

DIM(X,Y) 

inteiro 

inteiro 


12. Tipo de Dado 





Resultado 

ALLOCATED(X) 

.true, se a for vetor ou 
matriz 

todos 

logico 

EPSILON(X) 

menor valor que pode 
ser incrementado 

real 

real 

HUGE(X) 

maior valor possivel 

real ou inteiro 

real ou inteiro 

MAXEXPONENT(X) 

maior expoente 
possivel 

real 

real 

MINEXPONENT(X) 

menor expoente 
possivel 

real 

real 

NEAREST(X,Y) 

se y e positivo retorna 
o maior real se 
negativo o menor real 

real 

real 

PRECISION(X) 

numero de casas 
decimals 

real 

real 

TINY(X) 

menor valor positivo 
que pode ser 
armazenado 

real 

real 
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13. Transformagao do Tipo de X 




Resultado 

INT(X) 

real, inteiro ou complexo 

inteiro 

INTI(X), INT2(X), INT4(X), 

real, inteiro ou complexo 

integer*1, integer*2, integer*4, c 

INTC(X) 


integer 

IFIX(X) 

real*4 

inteiro 

HFIX(X) 

real, inteiro ou complexo 

integer*2 

JFIX(X) 

real, inteiro ou complexo 

integer*4 

IDINT(X) 

real*8 

inteiro 

REAL(X) 

real, inteiro ou complexo 

real*4 

DREAL(X) 

complex*16 

real*8 

FLOAT(X) 

inteiro 

real*4 

SNGL(X) 

real*8 

real*4 

DBLE(X) 

real*8 ou complexo 

real*8 

DFLOAT(X) 

real*8 ou complexo 

real*8 

CMPLX(X) 

inteiro, real, complexo 

complexo 

DCMPLX(X) 

inteiro, real, complexo 

complex*16 

ICHAR(X) 

ASCII 

inteiro 

CHAR(X) 

integer*4 

ASCII 


14. Complexos 





Resultado 

IMAG(X) 

retorna a parte 
imaginaria 

complexo 

real 

DIMAG(X) 

retorna a parte 
imaginaria 

complex*16 

real*8 

AIMAG(X) 

retorna a parte 
imaginaria 

complex*8 

real*4 

CONJG(X) 

retorna o complexo 
conjugado 

complex*8 

complex*8 

DCONJG(X) 

retorna o complexo 
coniugado 

complex*16 

complex*16 


15. Caracteres 





Resultado 

LEN(X) 

tamanho de x 

character 

inteiro 

LGE(X,Y) 

compara x e y se x >= y .true. 

character 

logical 

LGT(X,Y) 

compara x e y se x > y .true. 

character 

logical 

LLE(X,Y) 

compara x e y se x <= y .true. 

character 

logical 

LLT(X,Y) 

compara x e y se x < y .true. 

character 

logical 

INDEX(X,Y) 

procura y em x e retorna a posigao 

character 

inteiro 

LEN_TRIM(X) 

tamanho de x menos o numero de 
espagos 

character 

inteiro 

SCAN(X,Y) 

procura urn dos caracteres de y em x e 
retorna o numero de ocorrencias 

character 

inteiro 

VERIFY(X,Y) 

procura urn dos caracteres de y em x e 
retorna a posigao da primeira nao 
ocorrencia 

character 

inteiro 
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16. Valores Absolutos de X 




Resultado 

ABS(X) 

IABS(X) 

DABS(X) 

CABS(X) 

CDABS(X) 

complexo ou real 

inteiro 

real*8 

complex*16 

complex*16 

complexo ou real 

inteiro 

real*8 

complex*16 

real*8 


Os valores absolutos dos dados complexos sao calculados pela seguinte 
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Anexo B: Op$6es de Arquivos, Leitura 
e Escrita 

As opgoes contidas aqui foram baseadas no compilador FORTRAN Visual Workbrench 
v 1.00. Outros compiladores possuem outros nomes para estas opgoes, e podem possuir 
outras alem destas. 

As opgoes entre colchetes sao opcionais. Elas podem vir em qualquer ordem, exceto 
quando explicitado. 


1. Abertura de Arquivos (OPEN) 


OPEN ([UNIT=]un/f [, ACCESS=access] [, B\J\NK=blanks] 

[, BLOCKSIZE= blocksize] [, ERR=errlabef] [ , FILE =file] 

[ , FORM =form] [ , IOSTAT =iocheck\ [ , MODE =mode] 

[, RECL =recl\ [ , SHARE =share] [ , ST ATliS= status]) 

UNIT= - Quando omitido, o primeiro valor sera o numero da unidade {unit). 

unit- Expressao inteira. Indica o numero da unidade. 

access - Expressao alfanumerica. ‘APPEND’, ‘DIRECT’ ou ‘SEQUENTIAL’ (padrao, quando 
access e omitido) 

blanck - Expressao alfanumerica. ‘NULL’ ignora zeros e espagos, ‘ZERO’ espagos sao 
substituidos por zeros. Os formatos BN e BZ podem anular este efeito. 

blocksize - Expressao inteira. Especifica o tamanho da unidade (em bytes). 

errlabel- Expressao inteira. Indica o rotulo de uma linha no mesmo arquivo para onde o 
comando vai se houver erro. Quando omitido o efeito e determinado pela presenga ou nao de 
iocheck. 

file - Expressao alfanumerica. Indica o nome do arquivo. Quando omitido o programa pede ao 
usuario urn nome. 

form - Expressao alfanumerica. ‘FORMATED’ (padrao quando access=’SEQUENTIAL’), 
‘UNFORMATED’ (padrao quando access=’DIRECT’), ‘BINARY’. 

iocheck- Variavel inteira. Retorna zero quando nao ocorre erros, retorna urn numero negativo 
se encontrar a marca de fim de arquivo (EOF), retorna o numero do erro quando urn ocorre. 

mode - Expressao alfanumerica. ‘READ’ o arquivo e so para leitura, ‘WRITE’ o arquivo e so 
para escrita, ‘READWRITE’ o arquivo pode ser usado para leitura ou escrita. 
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red - Expressao inteira. Representa o tamanho de cada dado em bytes. E obrigatorio para 
access=’DIRECT’. 


share - Expressao alfanumerica. ‘DENYRW’ ignora mode=’READWRITE’, ‘DENYWR’ ignora 
mode=’WRITE’, ‘DENYRD’ ignora mode= READ’, ‘DENYNONE’ ignora qualquer mode, 

status - Expressao alfanumerica. ‘OLD’ indica que o arquiva ja existe, ‘NEW’ indica que o 
arquivo deve ser criado, ‘UNKOWN’ (padrao) verifica a existencia do arquivo, se ele nao existir 
sera criado urn, ‘SCRATHC’ 


2. Fechamento de Arquivos (CLOSE) 


CLOSE ([UNIT=] unit[,ERR=errlabel\ [JOSTAT =iocheck] 

[,STATliS=status]) 

UNIT= - Quando omitido, o primeiro valor sera o numero da unidade {unit), 
unit- Expressao inteira. Indica o numero da unidade. 

errlabel- Expressao inteira. Indica o rotulo de uma linha no mesmo arquivo para onde o 
comando vai se houver erro. Quando omitido o efeito e determinado pela presenga ou nao de 
iocheck. 

iocheck- Variavel inteira. Retorna zero quando nao ocorre erros, retorna urn numero negativo 
se encontrar a marca de fim de arquivo (EOF), retorna o numero do erro quando urn ocorre. 

status - Expressao alfanumerica. ‘KEEP’ indica que o arquiva deve ser mantido, ‘DELETE’ 
indica que o arquivo deve ser apagado. 

3. Escrita (WRITE) 

WRITE ([UNIT=] unit[ , [{[ FMT=] format] | [ NML=] nml }] 

[, ERR=erriabe!\ [ , IOSTAT =iocheck] [, REC =rec]) iolist 

UNIT= - Quando omitido, o primeiro valor sera o numero da unidade {unit). Se FMT= ou NML= 
forem omitidos, format ou nml devem ser o segundo parametro. 

unit- Expressao inteira. Indica o numero da unidade. 

format- Expressao inteira. Indica o rotulo de urn comando ‘format’. Expressao alfanumerica. 
Expressao que contenha os formatos de impressao. 

nml - Lista de variaveis a serem impressas, se estiver presente iolist deve ser omitida. 
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errlabel- Expressao inteira. Indica o rotulo de uma linha no mesmo arquivo para onde o 
comando vai se houver erro. Quando omitido o efeito e determinado pela presenga ou nao de 
iocheck. 

iocheck- Variavel inteira. Retorna zero quando nao ocorre erros, retorna o numero do erro 
quando um ocorre. 

rec - Expressao inteira. Indica a posigao do arquivo onde o dado sera impresso. Somente para 
arquivos com access=’DIRECT’. 

/o//sf — Lista de variaveis a serem impressas. 

4. Leitura (READ) 

READ { { format , \nml}\ ([UNIT=]un/f [, [ {[FMT=] format] \ 

[NML=]nm/spec}] [, END=end/abe/| [, ERR=errlabel\ [, IOSTAT =iocheck] 

[, REC=rec])} iolist 

UNIT= - Quando omitido, o primeiro valor sera o numero da unidade (unit). Se FMT= ou NML= 
forem omitidos, format ou nml devem ser o segundo parametro. 

unit- Expressao inteira. Indica o numero da unidade. 

format- Expressao inteira. Indica o rotulo de um comando ‘format’. Expressao alfanumerica. 
Expressao que contenha os formatos de leitura. 

nml - Lista de variaveis a serem lidas, se estiver presente iolist deve ser omitida. 

endlabel- Expressao inteira. Indica o rotulo de uma linha no mesmo arquivo para onde o 
comando vai se a marca de fim de arquivo (EOF) for encontrada. 

errlabel- Expressao inteira. Indica o rotulo de uma linha no mesmo arquivo para onde o 
comando vai se houver erro. Quando omitido o efeito e determinado pela presenga ou nao de 
iocheck. 

iocheck- Variavel inteira. Retorna zero quando nao ocorre erros, retorna 1 se encontrar EOF, 
retorna o numero do erro quando um ocorre. 

rec - Expressao inteira. Indica a posigao do arquivo de onde o dado sera lido. 
iolist- Lista de variaveis a serem lidas. 


5. Recuo Total (REWIND) 


REWIND { unit\([m\T=]unit [, ERR=errlabel] [, \OSTAT=iocheck])} 
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UNIT= - Quando omitido, o primeiro valor sera o numero da unidade (unit), 
unit- Expressao inteira. Indica o numero da unidade. 

errlabel- Expressao inteira. Indica o rotulo de uma linha no mesmo arquivo para onde o 
comando vai se houver erro. Quando omitido o efeito e determinado pela presenga ou nao de 
iocheck. 

iocheck- Variavel inteira. Retorna zero quando nao ocorre erros, retorna o numero do erro 
quando urn ocorre. 

6. Recuo de um Campo (BACKSPACE) 

BACKSPACE {unit\( [UNIT=] unit [,ERR=errlabel\ [,\OSTAT=iocheck ]])} 

UNIT= - Quando omitido, o primeiro valor sera o numero da unidade (unit), 
unit- Expressao inteira. Indica o numero da unidade. 

errlabel- Expressao inteira. Indica o rotulo de uma linha no mesmo arquivo para onde o 
comando vai se houver erro. Quando omitido o efeito e determinado pela presenga ou nao de 
iocheck. 

iocheck- Variavel inteira. Retorna zero quando nao ocorre erros, retorna o numero do erro 
quando um ocorre. 
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Anexo C: Tabela de Valores ASCII 

Valor ASCII - Caracter Correspondente 


0 

32 


64 

e 

96 * 

128 Q 

160 

* 

a 

192 L 

224 

1 0 

33 

t 

65 

8 

97 a 

129 U 

161 

l 

193 1 

225 

2 e 

34 

<* 

66 

B 

98 b 

130 e 

162 

* 

o 

194 T 

226 

3 9 

35 

# 

67 

C 

99 C 

131 a 

163 

u 

195 |- 

227 

4 ♦ 

36 

$ 

68 

D 

100 d 

132 a 

164 

n 

196 - 

228 

5 * 

37 

X 

69 

E 

101 e 

133 a 

165 

N 

197 f 

229 

6 ♦ 

38 

a 

70 

F 

102 f 

134 a 

166 

a 

198 5 

230 

7 • 

39 

j 

71 

G 

103 g 

135 s 

167 

o 

199 ft 

231 

8 B 

40 

( 

72 

H 

104 h 

136 e 

168 

L 

200 U 

232 

9 o 

41 

) 

73 

I 

105 i 

137 e 

169 

© 

201 If 

233 

10 g 

42 

•K 

74 

J 

106 j 

138 e 

170 

“i 

202 =» 

234 

11 6 

43 

+ 

75 

K 

107 k 

139 l 

171 

* 

203 If 

235 

12 9 

44 

J 

76 

L 

1081 

140 i 

172 

* 

204 |} 

236 

13 r 

45 

_ 

77 

M 

109 m 

141 l 

173 

i 

205 = 

237 

14 n 

46 

. 

78 

N 

lion 

142 a 

174 

« 

206 =j| 

238 

15 $ 

47 

X 

79 

0 

111 o 

143 ft 

175 

» 

207 a 

239 

16 ► 

48 

0 

80 

P 

112 P 

144 E 

176 


208 6 

240 

17 A 

49 

1 

81 

Q 

113 q 

145 » 

177 

1 

209 D 

241 

18 t 

50 

2 

82 

R 

ll4r 

146 fl 

178 

i 

210 e 

242 

19 !! 

51 

3 

83 

S 

115 s 

147 6 

179 

i 

211 E 

243 

20 H 

52 

4 

84 

T 

1161 

148 o 

180 

\ 

212 e 

244 

21 § 

53 

5 

85 

U 

117 U 

149 6 

181 

A 

213 i 

245 

22 - 

54 

6 

86 

U 

118 u 

150 U 

182 

ft 

214 \ 

246 

23 J 

55 

7 

87 

U 

119 u 

151 u 

183 

X 

ft 

215 I 

247 

24 t 

56 

8 

88 

X 

120 x 

152 y 

184 

© 

216 I 

248 

25 i 

57 

9 

89 

V 

121 y 

153 0 

185 

11 

217 J 

249 

26 -> 

58 

; 

90 

Z 

122 z 

154 Lj 

186 

II 

218 r 

250 

27 «- 

59 

» 

91 

[ 

123 { 

155 0 

187 

T1 

219 | 

251 

28 >- 

60 

< 

92 

s 

124 I 

156 £ 

188 

jj 

220 m 

252 

29 * 

61 

= 

93 

] 

125 > 

157 8 

189 

C 

221 I 

253 

30 A 

62 

> 

94 

A 

126 ~ 

158 x 

190 

¥ 

222 i 

254 

31 ▼ 

63 

? 

95 

_ 

127 ^ 

159 f 

191 

1 

223 ■ 

255 
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